
display2 <- arrangeGrob(CoefPlot12, QRplot12, nrow = 1, widths = c(1.7, 1.3))
display2_24 <- arrangeGrob(CoefPlot24, QRplot24, nrow = 1, widths = c(1.7, 1.3))

display2 <- arrangeGrob(CoefPlot12, QRplot12, nrow = 1, widths = c(1.7, 1.3))
ggsave(here::here("Draft/PNAS/draft/plots", "displayItem2.pdf"), display2, height = (17.8 / 2.76), width = 17.8, units = "cm")
ggsave(here::here("Draft/PNAS/draft/plots", "displayItem2_24.pdf"), display2_24, height = (17.8 / 2), width = 17.8, units = "cm")



